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14-Sep-1984 12:52:05 PASRTL.SRCJPASWRIHEX.B32;1 (1) 
; 1 0001 0 MODULE PASSWRITE_HEX ( a EY ‘Write a value in base 16’ 
: § B00¢ 8 TOENT = '1-002' ! File: PASWRIHEX.B32 Edit: SBL1002 
aon 0004 1 BEGIN 
$ 5 0005 1! 
: § iit i |g tatiana santana etn cia cinir a 
; ® 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 9 0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 19 id ; :* ALL RIGHTS RESERVED. * 
: ; * 
$ \¢ Boe 1 !®* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
. ¥ 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
>; 614 00146 1 !* INCLUSION OF THE ABO OPYRIGH TICE. THIS $ NY OTHER * 
5s 45 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 7 ete : :* TRANSFERRED. * 
Zz '® ” 
..- 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; @ 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $3 bos) 7 is CORPORATION. * 
$ : * 
; 23 $053 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 0025 1 !* * 
; & 0026 1 !* * 
: 27 QCO27 1 ei ee eee eR ERE REE E EEE EE 
; & 0028 1! 
S ey 0029 1 
;.» 0030 1 !** 
. 0031 1 ! FACILITY: Pascal Language Support 
oe it] 1! 
. 2 0035 1 ! ABSTRACT: 
; 34 0034 1! 
:* 0035 1! This module contains procedures which write a value in 
: 3 6038 : base 16 to a textfile or string. 
: $ 4 : ENVIRONMENT: User mode - AST reentrant 
: 40 0040 i AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
; 0042 1 | MODIFIED BY: 
3 #63 0043 1! 
; 646 044 1 ! 1-001 - Original. SBL 1-April-1981 
; 645 045 1 ! 1-002 = Make totai-width a longword. SBL 30-Jun-1982 
3; © 0046 1 !-- 
; 67 0047 1 
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1-002 Declarations 1e-308=138e 3:33 %35 EPASRTL SRCIPASURINEX.B 2:1 (28 
; 49 00468 1 &ZSBITL ‘Declarations’ 
; res 1! 
: 1 Bpey 1 ! PROLOGUE DEFINITIONS: 
ek ee 
: 2¢ ! REQUIRE "RTLIN:PASPROLOG’; ! Externals, Linkages, PSECTs, structures 
a 118 1! 
; 57 0119 1 ! TABLE OF CONTENTS: 
; 3 0120 1! 
>: 0121 #1 
: 60 01 ¢ 1 FORWARD ROUTINE 
5 6} 01 1 PASSWRITE_HEX: NOVALUE ' Write to textfile 
; 6¢ 0124 1 PASSWRITEV_HEX: NOVALUE; i Write to string 
; § 0125 1 
; 664 0126 1! 
3 65 0127 1 =! MACROS: 
; & 0128 1! 
. Of O16? 1! NONE 
; 68 0130 1! 
; «69 0131 1 ! EQUATED SYMBOLS: 
:. ol 8g 1! 
: 71 013 1! NONE 
c 0134 1! 
; 73 ab 1 ! FIELDS: 
a. 0136 1! 
s 75 0137 1! NONE 
; 0138 +1! 
Te a 0139 1 ! OWN STORAGE: 
; 0140 1! 
:; 79 0141 1! NONE 
: 80 pi6¢ 1! 
5 81 0145 1 
; 82 0144 1 !! If this is for a V2 system, redefine OTS$SCVT_L_TZ as PASSCVT_L_TZ. 
; 8 tL 0145 1 IF ZVARIANT 
"4 84 U 0146 1 XTHEN 
5s 8 U 0147 1 UNDECLARE 
; U 0148 1 OTSSCVT_L_TZ; 
cay Or U 0149 1 EXTERNAL ROOTINE 
; @& u 0150 1 PASSCVT_L_TZ; 
: 89 U 0151 1 BIND ROUTINE 
: 90 U 8126 1 OTSSCVT_L_TZ = PASSCVT_L_TZ; 
: «(91 0155 1 &FI 
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value in base 16 18-Sep-19 4 06:13:32 
RITE_HEX = Write a value in hexadecimal to 14-Sep-1984 12:52:05 
& 


AX-11 Bliss-32 V4.0- 
PASRTL.SRCJPASWRIHEX 


SBTTL ‘PASSWRITE_HEX = Write a value in hexadecimal to textfile’ 


GLOBAL ROUTINE PASSWRITE HEX ( 
PEV: (REF SPASSPFOU_FILE_VARIABLE, 


! 
VALUE; i 
TOTAL WIDTH: SIGNED, 
MIN DIGITS: SIGNED 
): NOVACUE = 

les 


FUNCTIONAL DESCRIPTION: 


This procedure writes a base 16 representation of 
specified textfile. 


! CALLING SEQUENCE: 


: SIDE EFFECTS: 


File variable ’ 

Size of value in bits 
Address of value 

Total field width 

Error unwind address 
Minimum number of digits 


a value to the 


j[OTAL-WIDTH. FL v 


its to appear 
mum number of digits 


If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 


SIGNALLED ERRORS: 


i 

i 

i 

i 

t 

i CALL PASSWRITE_HEX (PFV.mr.r, NBITS.rl.v, VALUE.rz 

C, CERROR.j.rJ C, MIN_DIGITS.r 

FORMAL PARAMETERS: 

i PFV - The Pascal File Variable (PFV) passed b 
The structure of the PFV is defined in 
; NBITS - The size of VALUE in bits. 

VALUE - The address of the value to write. 
TOTAL_WIDTH - Total field width. 

ERROR - Optional. Address to unwind to if an error occurs. 
i MIN_DIGITS - Optional. The minimum number of di 

! in the result. Defaults to the min 
needed to represent every bit of the value. 
IMPLICIT INPUTS: 

NONE 

: IMPLICIT OUTPUTS: 

NONE 

ROUTINE VALUE: 

NONE 

i 

! 

i 

! 

i 

i 

i 


NEGWIDDIG = negative field width or digits specification is not allowed 


oe 
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ati = PASSWRITE_HEX = Write a value in hexadecimal to 1328087138 93:13:38 PASRTL. SRC IPASUR I EX.852;1 ’ ( 
s 150 1) LINTOOLON = Line too Long 
s Fo) 1 1! 
. 5 ¢ 1 1 !e< 
2% 14 «1 
; 154 0215 BEGIN 
s 155 0 1 
> s : 021 LOCAL 
; ¥ 0218 FCB: REF SPASSFCB_CONTROL_BLOCK, ! File control block 
: 158 0219 ACTUAL_DIGITS, ! Number of digits actually used 
; i 8 0 ACTUAL_NBITS, ! Value size actually used 
: 160 1 DESCR: BLOCK (8, BYTE], ! S$tring descriptor 
: 161 0 é PFV_ADDR: VOLATILE, i Enable argument 
3 16 8 UNWIND ACT: VOLATILE, ' Enable argument 
3 197 $e ERROR_ADDR: VOLATILE; ! Enable argument 
3; 165 § 26 LITERAL 
; 166 0227 M_SIZE_IN_BITS = %x'04°; ! Flags argument for 
: 167 0228 ' convert routine 
; 168 oS ¢2 BUILTIN 
: 169 0230 ACTUALCOUNT; 
: 170 0231 2 
: #171 bS3¢ 2 NABLE 
3 16 OS37 § PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
: 174 OS 32 2 + 
. 0236 2 ' Get ERROR parameter, if present. 
: 176 0237 2 be 
: 177 0238 2 
; 178 0239 2 IF ACTUALCOUNT () GEQU 5 
3; 179 0240 2 : 
3 Hs aces § ERROR_ADDR = .ERROR; ! Set unwind address 
3 We 0548 2 PFV_ADDR = PFV CPFV$R_PFV); ! Set PFV address 
: 183 0244 2 
3; «(184 0245 2 '+ 
; 185 0246 2 ! Validate PFV and get PFV. 
: 186 0247 2 le 
: 187 0248 2 
; 188 0249 2 PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 
: 190 0251 '¢ : : 
; 191 O56 2 ' Set unwind action to unlock file. 
; 196 0253 2 '- 
3; «219 0254 § 
> 19% 0255 UNWIND_ACT = PASSK_UNWIND_UNLOCK; 
: 195 0256 2 
: 196 0257 2 '¢ cee . : 
: 197 0258 2 ' Do common initialization. 
: 198 3522 le 
: 199 0260 
; $00 ase! PASSSINIT_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB); FCB); 
; 203 0268 ed Pe } 
3; «0 64 ' Set initial values for conversion. 
3; 204 0265 != 
; 205 pses 
: 206 0267 ACTUAL_NBITS = .NBITS; 
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1-30 


Write a value in base 16 1bas¢ Sep-1984 2:19:37 AX-11 Bliss-32 V4.0-74 
2 PASSWRITE_HEX = Write a value in hexadecimal to 12: ~3ep- 1984 93:13:98 PASRTL.SRCJPASWRIHEX.832;1 
; 64 83 5 OTSSCVT_L_TZ (. qvetve- DESCR, .ACTUAL_DIGITS, peepee 
: 269 0326 M_SIZE_IN BITS); 
: ser 83 3 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + .DESCR COSC$W_LENGTHI; 
: 269 0330 14 
: 270 tht i Call WRITE epilogue routine to move the Last character written to the 
— oe 0 ¢ i user's buffer and to unlock the file variable. 
: $f8 O38 i- 
; sie tte 2 PASSSEND_WRITE . ‘FV CPFVS$R_PFV], FCB CFCBSR_FCBI); 
: fe 6339 $ RETURN; 
: e277 0338 2 
; 278 0339 1 END; ! End of routine PASSWRITE_HEX 
-TITLE PASSWRITE_HEX Write a value in base 16 
-IDENT \1-002\ 
EXTRN PASSWRITE_HEX, PASSWRITEV_HEX 
EXTRN PAS$$IO_HA 
~EXTRN PASSSVATIDATE PFV 
-EXTRN PASSSINIT_WRI 
~EXTRN PASSSSIGNAL —— _NEGWIDDIG 
eEXTRN PASS$K_LINT 
-EXTRN OTSSCOUT aa T2e PASSSEND WRITE 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
O1FC 00000 -ENTRY PASS$WRITE -« ae R2,R3,R4,R5,R6,R7,R8 
58 00000000G 00 9€E 00002 MOVAB PASSSSIGNAL , 
5E 10 C2 00009 SUBL2 #1 
7E D4 0000C CLRL ERROR ADDR 
04 AE 7C OOOOE CLRQ UNWINB_ACT 
6D 00A7 CF DE 00011 MOVAL 8$, (FP) 
05 6C 91 00016 CMPB (AP), #5 
04 1F 00019 BLSSU 1$ 
6E 14 AC DO 00018 MOVL ERROR, ERROR_ADDR 
56 04 AC DO OOOIF 1$: MOVL Pp 
08 AE 56 DO 00023 MOVL 6, PFV_ADDR 
000000006 00 16 00027 JSB PASSSVALIDATE_PFV 
04 = =AE 01 DO 00020 MOVL # 
000000006 00 16 00031 JSB PASSSINIT QRITE 
52 8 AC 00 00037 MOVL NBITS, ACTUAL_NBITS 
54 A2 9E 00038 sy ie 3(R2). R4 
54 9% C6 00035F DIVL #4, R 
55 4 pd boods MOVL RG acre L bss Ts 
OF AE 010E 8F BO 0004 MOV #370 
10 AE EC A? DO 00048 MOVL = OCF cB) COESCREG 
06 6c 91 Bebe CMPB (AP), #6- 
6 iF 05 BLSSU 
55 18 AC 00 Bnes MOVL MIN_DIGITS, ACTUAL_DIGITS 
06 19 Te BLSS $ 
53 10 AC 08 005B 2$: MOVL TOTAL_WIDTH, R3 
A 1 Ft BGEQ 4$ 
E D4 00061 3$: CLRL -(SP) 


: 279 0 
0 


: 280 


; Routine Size: 223 bytes, Routine Base: _PASSCODE + 0000 
| 
1 !<BLF/PAGE> | 

| 
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1-002 PASSWRITE_HEX = Write a value in hexadecimal to 14-Sep-1984 93:13:98 LOASRIL  SROIPASWRINEX.BS2: 1 (3) | 
7 006 8F 9A 0006 MOVZBL M#PASS$K_NEGWIDDIG, -(SP) : 
3 02 FB O07 CALLS #2, PASSSSIGNAL ; 
s 
OC AE 53 B0 0068 4$ MOVW R3, DESCR + 0290. 
| 54 53 Opi O6F CMPL = R3, RS ; 0295 | 
04 YE 900 2 BGEQU 5$ : 
| 52 53 02 78 00074 ASHL #2, -R3, ACTUAL_NBITS + 0301 
53 D1 0078 5$ CMPL ACTUAL_DIGITS,~R : 0304 | 
| 55 9 v0 007D MOVL  R3, ACTUAL_DIGITS + 0306 
| 50 Oc AE 3¢ 00080 68 MOVZWL DES ; 0315 
| 50 EC ar C 90084 ADDL¢ -20(FCB), RO ; 
50 FO A? C2 00088 SUBL2 <-16(FCB). EXTRA : 
--¥ 9008¢ BLEQ 7$ : 0316 
50 DD 0008E PUSHL EXTRA ; 0318 | 
01 DD 00090 PUSHL #1 : 
7E 006 8F 9A 00092 MOVZBL #PASS$K_LINTOOLON, -(SP) : 
68 03 FB 00096 CALLS #3, PASSS$SIGNAL : 
04 00099 RET : 
04 DD 0009A 7$ PUSHL #4 : 0325 
52 DD 0009C PUSHL ACTUAL_NBITS ; 
55 DD 0009E PUSHL ACTUAL-DIGITS : 
18 AE 9F OO0A0 PUSHAB DESCR F 
| 0C AC DD 000A3 PUSHL VALUE 3 
| 000000006 00 05 FB 0006 CALLS #5, OTSSCVT_L_TZ ; 
50 Oc AE 3C O00AD MOVZWL DESCR, RO ; 0328 
| EC A? 50 CO 00081 ADDL2 RO, -20(FCB) : 
000000006 00 16 00085 JSB PASSSEND_WRITE > 0335 
04 00088 RET : 0339 
0000 O00BC 8$ «WORD Save nothing ; 0215 
50 08 AC DO OO0BE MOVL  &8(AP), RO ; 
50 04 AO DO 000C2 MOVL  4(RO). RO ; 
EC AO 9F 00066 PUSHAB ERROR ADDR : 
FO AQ 9F 000C9 PUSHAB UNWIND ACT : 
FL AO OF O00CC PUSHAB PFV_ADBR : 
03 DD OOOCF PUSHL # : 
5E DD 00001 PUSHL ; 
7E 04 AC 7D 00003 MOVO. 4(AP), =(SP) : 
000000006 00 03 FB 000D7 CALLS #3, PAS$$IO_HANDLER ; 
04 OO0DE RET F 
| 
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R TEV_HEX - Write value in base 16 to stri 127808- 1982 93:18:05 PASRTL.SRC PASWRIHEX 6 231 ans (4) | 


USBTTL 'PASSWRITEV_HEX = Write value in base 16 to string’ | 
GLOBAL ROUTINE Passuny TEV_HER ( 


GTH: WORD, 
STRING LINE: REF VECTOR C, WORD], 


BITS, 
VALUE: REF VECTOR C, BYTE], 
AT aes SIGNED, 


MIN DIGITS: SIGNED 
NOVALUE = 


|" PASSWRITE_HEX 
| 1-002 


no. 
Ge 
£e 


oo 
wr 


Maximum length of string 
String to write to 
Number of bits in VALUE 
Value to write 

Total field width 

Error unwind address 
Minimum number of digits 


fe Jo Te Te Te te Je] 
OONAUSE 


MrPoPKPorororefnunenefreory 


the value. 
! IMPLICiT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE | 


A 
| 
90 
91 | 
HOR | 
9 ; le4¢ 
9 ; FUNCTIONAL DESCRIPTION: 
$38 H This procedure writes a value in base 16 to the specified string. 
soe H ' CALLING SEQUENCE: 
300 3 CALL PASSWRITEV_HEX (MAX_LENGTH.rw.v, STRING_LINE.wvt.r, 
3 ef l.v, VALUE.rz.v, TOTAL eflev 
3 C, CERROR.j.r) C.MIN_DIGITS.rT.vJJ) 
H FORMAL PARAMETERS: 
$09 : MAX_LENGTH - The maximum Length of STRING_LINE. 
$05 ‘ STRING_LINE - A varying string to which the output will be appended. 
: NBITS - Size of VALUE in bits. 
; VALUE - The value to write. 
H TOTAL_WIDTH - The width of the field to write. 
3 ERROR - Optional. If specified, the address to unwind to 
; in case of an error. 
3 MIN_DIGITS - Minimum number of digits to write. Defaults to | 
the minimum necessary to represent every bit o | 


i ROUTINE VALUE: 
NONE | 
SIDE EFFECTS: | 
NONE 
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/PASSWRITE_HEX Write a value in base 16 14-Sep-1984 02:19:37 AX-11 Bliss-32 V4.0-74 Page 9 
3803 PASSURTTEV_HEX = Urite value in base 16 to stri 1e-Sep-19Be 13:55:05  FRASRTL SRE SPASURINEX B92; 9 a) | 
; 339 0399 1 ! SIGNALLED ERRORS: | 
rc 40 400 1! 3 
i; (541 401 1! See PASSWRITE_HEX 3 
| 3 tg 106 t ! : 
i 3 0403 1 i-- | ; 
1; 344 0404 1 : 
13; «345 0405 BEGIN ; 
; 346 0406 F 
s wr 0407 LOCAL : 
; 348 0408 PFV: SPASSPFV AN sa + bg ! Pascal File Variable F 
; 349 0409 ARG_LIST: VECTOR [7, LONG), | Argument List | : 
3; fee Bei PFV_ADDR: VOLATILE, ! Enable argument ; 
: 351 411 UNWIND_ACT: VOLATILE, ' Enable argument : 
; 26 Belg ERROR_ADDR: VOLATILE; ! Enable argument | : 
; 354 0414 2 BUILTIN : 
t See 0415 ACTUALCOUNT; ! Count of arguments | : 
: 328 0416 : 
3s Sor 0417 ENABLE ; 
; $25 B18 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler : 
: 366 0420 : + : 
; 361 0421 § ! Get ERROR parameter, if present. ‘ 
; 306 04 ; t= 3 
; 2 04 2 : 
; 364 0424 IF ACTUALCOUNT () GEQU 6 : 
3 36° 0425 . 3 
; $03 be5$ ERROR_ADDR = .ERROR; ! Set unwind address : 
; 368 0458 PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 3 
; 369 34 : 
: 370 0430 14 3 
3 STi 0431 ! Set up ARG_LIST. 3 
3s 3f2 Rt le : 
, pe 04335 2 : 
; 374 0434 2 ARG_LIST (0) = 4; ' Four arguments 3 
; 375 0435 2 ARG-LIST Ci} = PFv CPFVSR_PFV); i PFV address ’ 
3; 37e 0436 § ARG_LIST ¢ = .NBITS; ' Number of bits 3 
s ore 0437 ARG_LIST = VALUE [0]; ' Value to write 3 
: 378 0438 ARG_LIST (4) = .TOTAL_WIDTH; ! Field width ; 
s Sry 0439 IF ACTUALCOUNT () GEQOD 7 ; 
; 380 0440 THEN : 
; «4381 0441 BEGIN 
; $86 44 ARG_LIST 9 = 6; ! Add two more arguments 
; 2 44 ARG_LIST = 0; ! Error address 
; 384 0444 ARG_LIST (6) = .MIN_DIGITS; ! Minimum digits 
; 85 0445 END; 
; 386 044 
; 387 044 ‘+ 
; 388 0448 ' Call PAS$$D0_WRITEV to do the work, giving it the address of 
; 389 0449 ! PASSWRITE_HER to call. 
: Sor 131 & | 
; 392 045 PAS$$DO_WRITEV (PFV CPFVSR_PFV), .MAX_LENGTH, STRING_LINE (OJ, ARG_LIST, 
: 393 045 PASSWRITE_HEX); | 
s 94 0454 
; 395 0455 RETURN; | 
| 
s 
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| 1 
PASSWRITE_HEX Write a value in base 16 1b-se 1984 02:19:37 AX-11 Bliss-32 V4.0-74 
1-002 PASSWRITEV_HEX = Write value in base 16 to stri 12286871386 1 13:98 PASRTL. RESPASURINEX 88251 
; 398 0456 . 
i 045? END; ! End of routine PASSWRITEV_HEX 


.EXTRN PASSS$DO_WRITEV 


i 
007¢ 00000 -ENTRY PASSWRITEV_HEX, Save R2,R3,R4,R5,R6 
SE 4 (5 20009 SUBL2 Wes SP 
| E BA 0000 CLRL ERROR_ADDR 
04 AE 7C 00007 CLRO UNWIND ACT 
6D OO4F CF bE OO0A MOVAL 3$, (FP) 
06 6C O00F CMPB (AP), #6 
04 1F 00012 BLSSU. 1 
| 6E 18 AC 00 00014 MOVL ERROR, ERROR_ADDR 
| 08 AE 28 AE 9E 00018 18: MOVAB PFV, PFV_ADDR 
OC AE 04 00 00010 MOVL #4, CIst 
10 AE 28 «=6AE OSE 0008) MOVAB PFV, ARG_LIST 
14 AE OC AC 7D 00026 MOVQ NBITS, ARG_LIST+8 
10 AE 14 AC dO 900¢8 MOVL TOTAL_WIDTA, ARG_LIST+16 
07 6C 91 00030 CMPB (AP), #7 
OC 1F 00033 BLSSU 
OC AE 06 00 00035 MOVL #6, ARG_LIST 
| 20 AE 04 00039 CLRL  ARG_LIST+20 
24 =A 1¢ AC DO 0003C MOVL MIN-DIGITS, ARG_LIST+24 
55 FEDC CF 9E 00041 28: MOVAB PASSWRITE_HEX, R5 
54 OC AE 9E 00046 MOVAB ARG_LIST,~R4 
56 28 AE 9E 0004A MOVAB PFY, R6 
53 08 aC 00 OO04E MOVL STRING LINE, R3 
52 04 AC 3C 0005 MOVZWL MAX_LENGTH, R2 
000000006 00 16 00056 JSB PASSS$DO_WRITEV 
04 0005C¢ RET 
0090 00050 3$: .WORD Save nothing 
50 08 aC DO 0005F MOVL B(AP), RO 
50 04 AO DO 00063 MOVL  4(RO), RO 
C8 AO 9F 00067 PUSHAB ERROR_ADDR 
CC AO 9F OO06A PUSHAB UNWIND ACT 
DO AO OF 90060 PUSHAB PFV_ADBR 
03 DD 00070 PUSHL #3 
5E DD 00072 PUSHL SP 
7E 04 AC 7D 00074 MOVQ 4(AP), =(SP) 
000000006 00 03 FB 90078 CALLS #3, PAS$SS$IO_HANDLER 


; Routine Size: 128 bytes, Routine Base: _PASSCODE + OODF 


0458 1 
399 0459 1 !<BLF/PAGE> 


RENO EES a Ee ee SSS SE ee a ae We TO eH Le 
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/PASSWRITE_HEX Write a value in base 16 “Sep-19 AX=-11 Bliss-32 V4.0-74 Page 
1-002 PASSWRITEV_HEX = Write value in base 16 to stri 1 122868 Sep 71382 98: 43: a5 PASRTL.SRC PASWRIHIEX B92: 1 : 
; 401 460 1 END ! End of module PASSWRITE_HEX 

P40 Seer ; 

3 40 0462 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: PASSCODE 351 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
ESR tee ee tr ee oe Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: fF HS oe eH L32;1 9776 6 0 581 00:01.0 
; ~$255$DUA28: CPASRTL.OBJ IPAS ASLIB.L32;1 427 97 22 33 00:00.4 
$ COMMAND QUALIFIERS 
3 ee REPSRECEME? FELD SMES IS. APTI LES PROTA AL LE SORE PRRUA TERIOR ER SEPA NES MSRC$:PASWRIHEX/UPDATE=(ENHS$: PASWRIHEX 
; Size 351 code + 0 data bytes 3 
3; Run Time: 00:09.0 : 
; Elapsed Time: 00:25.8 3 
3; Lines/CPU Min: 3076 3 
; Lexemes/CPU-Min: 15029 : 
: onary Used: 103 pages : 
; Compilation Complete 2 
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